################################################################################
# TEST:	date
################################################################################
# $Revision: 1.2 $
# $Author: cbueche $
# $Date: 2001/01/22 14:50:52 $
# $Source: 
# $NoKeywords: $
################################################################################

#**# 
#*	Dieses Skript ist die Schittstelle zwischen der ausgefhrten Ecxeldatei und der 
#*	dazugehrigen Functionsbibliothek die im Laufe der Ausfhrung geladen wird.
#*
#*@Author: cbueche 
#*/



static step, mode, comment;
static rc, frm_rc;

if ( reset_rc ) frm_rc = 0;

# IMPLEMENT YOUR OWN REPORTING HERE
# -->>-->>-->>
report_msg( "=====================" );
report_msg( "Table: " & FRM_get_name( table ) );
report_msg( "Test: " & test );
if ( FRM_get_cell( table, test, "Description", comment ) == E_OK )
{
	wrlog_test_data( "DESCRIPTION", comment );
	report_msg( "Description: " & comment );
}
report_msg( "=====================" );
# <<--<<--<< END OF REPORTING

rc = FRM_STP_init_steps( table, test );
if ( rc != E_OK ) 
	treturn rc;

# LOAD THE NECESSARY LIBs & Guis HERE
# Use FRM_load_XXX() and you need not worry when to unload them.
# -->>-->>-->>
#FRM_load_gui( table, GUI_HOME & "\\" & "???.gui" );
FRM_load_lib( table, "LIB/FRM/date/frm_date_lib", 0, 0 );
FRM_load_lib( table, "LIB/aut_frm_gui_lib", 0, 0 );

# <<--<<--<< END OF LOADING

while( FRM_STP_has_more_steps( table, test ) )
{
	rc = FRM_STP_get_next_step( table, test, step, mode );
	if ( rc == E_FILE_EOF )
		break;
	if ( rc != E_OK )
	{
		frm_rc++;
		continue;
	}
	switch( tolower( step ) )		# if you prefer it case-insensitive
	{
    # PROCESS YOUR TEST STEPS HERE
    # -->>-->>-->>
	case "date":
		rc = FRM_date( table, test, step, mode );	break;
#	case "not-implemented-yet step":
#		FRM_DRV_handle_unimplemented_block( step, frm_rc );
#		continue;
# <<--<<--<< END OF TEST STEPS
	default:
		FRM_DRV_handle_unknown_block( step, frm_rc );
		continue;
	} # end switch

	if ( FRM_DRV_handle_processed_block( step, test, rc, frm_rc ) )
		break;
} # end while
	
treturn (frm_rc=="" ? 0 : frm_rc);
